home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).zip
/
Franz PD Disk #116 (1991-03)(Amiga User Group Deutschland e.V.).adf
/
Börse
/
Börse
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-07-03
|
4KB
|
192 lines
REM Aktienberechnungen | Diese Program ist Public Domain
REM Autor: Jakob Woehrle Talstr. 65 7620 Wolfach/Kirnbach
SCREEN 1,640,256,2,2
WINDOW 1,"BÖRSE V 1.0"
anfang:
CLS
taste$=""
tast$=""
tas$=""
LOCATE 10,8
PRINT "- 1 - Ankauf"
LOCATE 11,8
PRINT "- 2 - Verkauf"
taste:
taste$=INKEY$
IF taste$="1" THEN
GOTO weiter
ELSEIF taste$="2" THEN
GOTO weiter
ELSE
GOTO taste
END IF
SLEEP
weiter:
CLS
LOCATE 6,8
INPUT "Kenn-Nummer : ",n
LOCATE 6,32
INPUT "Bezeichnung : ",a$
LOCATE 7,8
INPUT "Kurs : ",k
LOCATE 7,32
INPUT "Stückzahl : ",s
IF taste$="2" THEN
LOCATE 8,8
INPUT "Ankaufskurs : ",ank
END IF
ag=2.5
y=s*ank
g=y/100
h=g/4
l=y/100*0.06
kpr=y+g+h+l+ag
ges=k*s
PRINT " --------------------------------------------------"
IF taste$="1" THEN
LOCATE 9,8
PRINT "Gesamtwert der Aktien : "ges
ELSE
LOCATE 10,8
PRINT "Gesamtwert der Aktien : "ges
END IF
PRINT " --------------------------------------------------"
bp=ges/100
IF bp<5 THEN bp=5
IF taste$="1" THEN
LOCATE 11,8
PRINT "Bankprovision : "bp
ELSE
LOCATE 12,8
PRINT "Bankprovision : "bp
END IF
bus=bp/4
IF taste$="1" THEN
LOCATE 12,8
PRINT "Börsenumsatzsteuer : "bus
ELSE
LOCATE 13,8
PRINT "Börsenumsatzsteuer : "bus
END IF
mc=ges/100*0.06
IF taste$="1" THEN
LOCATE 13,8
PRINT "Maklercourtage : "mc
ELSE
LOCATE 14,8
PRINT "Maklercourtage : "mc
END IF
IF taste$="1" THEN
LOCATE 14,8
PRINT "Abwicklungsgebühr : "ag
ELSE
LOCATE 15,8
PRINT "Abwicklungsgebühr : "ag
END IF
PRINT " --------------------------------------------------"
IF taste$="1" THEN
ganzges=ges+bp+bus+mc+ag
PRINT " Gesamtkosten der Aktien : "ganzges
ELSE
ganzges=ges-bp-bus-mc-ag
PRINT " Gesamterlös der Aktien : "ganzges
END IF
IF taste$="2" THEN
PRINT " Kaufpreis : "kpr
PRINT " --------------------------------------------------"
gewinn=ganzges-kpr
PRINT " Gesamtgewinn der Aktien : "gewinn
END IF
LOCATE 22,25
PRINT "Drucken (+/-) ?"
tast:
tast$=INKEY$
IF tast$="+" THEN
LPRINT " Kenn-Nummer : "n
LPRINT " Bezeichnung : "a$
LPRINT " Kurs : "k
LPRINT " Stückzahl : "s
IF taste$="2" THEN
LPRINT " Ankaufskurs : "ank
END IF
LPRINT " --------------------------------------"
LPRINT " Gesamtwert der Aktien : "ges
LPRINT " --------------------------------------"
LPRINT " Bankprovision : "bp
LPRINT " Börsenumsatzsteuer : "bus
LPRINT " Maklercourtage : "mc
LPRINT " Abwicklungsgebühr : "ag
LPRINT " --------------------------------------"
IF taste$="1" THEN
LPRINT " Gesamtkosten der Aktien : "ganzges
ELSE
LPRINT " Gesamtgewinn der Aktien : "ganzges
END IF
IF taste$="2" THEN
LPRINT " Kaufpreis : "kpr
LPRINT " --------------------------------------"
gewinn=ganzges-kpr
LPRINT " Gesamtgewinn der Aktien : "gewinn
END IF
LPRINT:LPRINT
LOCATE 22,23
PRINT " "
GOTO ende:
ELSEIF tast$="-" THEN
LOCATE 22,23
PRINT " "
GOTO ende
END IF
GOTO tast
SLEEP
ende:
LOCATE 22,30
PRINT " > taste <"
tas:
tas$=INKEY$
IF tas$<>"" GOTO anfang
GOTO tas
SLEEP